#include "qblide.bi"
declare sub Init()

Init()

'Data for the "File" menu, as seen in QB 7.1
'It's 18 chars wide
dim shared as MenuType FileMenu(1 to 15), EditMenu(1 to 11), ViewMenu(1 to 10), SearchMenu(1 to 5), RunMenu(1 to 9), DebugMenu(1 to 10), CallsMenu(1 to 1),_
				UtilityMenu(1 to 2), OptionMenu(1 to 4), HelpMenu(1 to 4)
FileMenu(1).Text = "New Program"
FileMenu(2).Text = "Open Program..."
FileMenu(3).Text = "Merge..."
FileMenu(4).Text = "Save"
FileMenu(5).Text = "Save As..."
FileMenu(6).Text = "Save All"
FileMenu(7).Text = ""
FileMenu(8).Text = "Create File..."
FileMenu(9).Text = "Load File..."
FileMenu(10).Text = "Unload File..."
FileMenu(11).Text = ""
FileMenu(12).Text = "Print"
FileMenu(13).Text = "DOS Shell"
FileMenu(14).Text = ""
FileMenu(15).Text = "Exit"

EditMenu(1).Text="Undo"
EditMenu(2).Text="Redo"
EditMenu(3).Text="Cut"
EditMenu(4).Text="Copy"
EditMenu(5).Text="Paste"
EditMenu(6).Text="Clear"
EditMenu(7).Text=""
EditMenu(8).Text="New SUB..."
EditMenu(9).Text="New FUNCTION..."
EditMenu(10).Text="New TYPE..."
EditMenu(11).Text="New Class..."


ViewMenu(1).Text="Subs..."
ViewMenu(2).Text="Functions..."
ViewMenu(3).Text="Types, Unions, Enums..."
ViewMenu(4).Text="Split"
ViewMenu(5).Text=""
ViewMenu(6).Text="Next statement"
ViewMenu(7).Text="Output screen"
ViewMenu(8).Text=""
ViewMenu(9).Text="Included file"
ViewMenu(10).Text="Included lines"


SearchMenu(1).Text="Find"
SearchMenu(2).Text="Selected text"
SearchMenu(3).Text="Repeat last find"
SearchMenu(4).Text="Change"
SearchMenu(5).Text="Label"

RunMenu(1).Text="Start"
RunMenu(2).Text="Restart"
RunMenu(3).Text="Continue"
RunMenu(4).Text="Modify COMMAND"
RunMenu(5).Text=""
RunMenu(6).Text="Make executable"
RunMenu(7).Text="Make library"
RunMenu(8).Text=""
RunMenu(9).Text="Set main module"

DebugMenu(1).Text="Add watch"
DebugMenu(2).Text="Instant watch"
DebugMenu(3).Text="Watchpoint"
DebugMenu(4).Text="Delete watch"
DebugMenu(5).Text="Delete all watches"
DebugMenu(6).Text=""
DebugMenu(7).Text="Trace on"
DebugMenu(8).Text="History on"
DebugMenu(9).Text="Break on errors"
DebugMenu(10).Text="Set next statement"

CallsMenu(1).Text="Untitled"

UtilityMenu(1).Text="Run shell command"
UtilityMenu(2).Text="Customize meny"

OptionMenu(1).Text="Display"
OptionMenu(2).Text="Set paths"
OptionMenu(4).Text="Syntax checking"

HelpMenu(1).Text="Index"
HelpMenu(2).Text="Contents"
HelpMenu(3).Text="Topic:"
HelpMenu(4).Text="Using help"

print "Press Q to quit"
print "Press M to make a menu"
print "Click away, mate."
sleep 5000

do
	RenderScreen()
	RenderMouse()
	sleep 10
	
	if multikey(FB.SC_M) then
		MakeMenu(3, 2, 18, FileMenu())
	end if
loop until inkey = "q" or inkey = chr(27)

sub Init()
	screenres 640, 480, 16
	width 80, 30

	'Make the mouse invisable
	setmouse , , 0
end sub


